home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Telecommunications / Updates⁄New / MicroPhone 2 Scripts / CallLogMP2 / Hang Up < prev    next >
Encoding:
Text File  |  1988-06-11  |  626 b   |  19 lines  |  [TEXT/ttxt]
  1.  Modem File = Standard (Call Log)
  2.  Modem Script Name = Hang Up
  3.  
  4. 1   Dialog Install  "Now Hanging Up."
  5. 2   Do Script * "Grab Modem"
  6. 3   If Success 
  7. 4     Send Text String  "ATH^M"
  8. 5     Set Variable online from Expression  "=false"
  9. 6     Set Variable timeStamp from Date & Time 
  10. 7     Do Script * "Ticks2Time"
  11. 8     Append to File "Call Log"
  12. 9     Send Local to File  "='Call to ',ServiceName,' via ',PhoneNumber,' finished at ',timeStamp,'.'"
  13. 10    Send Local to File  "^M"
  14. 11    Send Local to File  "='[Duration of call was ',callTimer,']'"
  15. 12    Send Local to File  "^M^M"
  16. 13    Capture Off 
  17. 14  End If
  18. 15  Dialog Discard  
  19.